# Usage: canton.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

pass cleanUpCache
pass summarizeRawImage locations.bmp 1 0 1 0
create {
	outputFile canton.ps 
	mapFile "canton.map"
	title "Canton"
	creator "Mario Huys (woelpad@yahoo.com)"
	$MapDrawingScale .5 $MapSupplyScale .7
	$FrameOverlap $FrameThickness $FrameMargin 0
	images {
		coastline {coastline2.gif {} dimblack}
		mountain mountain.gif
		national1 national11.gif
		national2 national20.gif
		internal1 internal12.gif
		internal2 internal22.gif
		locations {units5a4.gif {trace 1} {} {0 0 0 -12}}
		centers {units5a4.gif {trace 1}}
	}
	borders {
		land {image {coastline dimblack} LandBrown Border}
		internalBorders {image {internal1 dimblack internal2 dimblack} {} InternalBorder}
		borders {image {national1 black national2 black} {} NationalBorder}
		mountain {image {mountain dimblack} MountainGrey NationalBorder}
		lake {image {coastline blue} SeaBlue Border}
	} 
	locationTypes {
		Supplies {number 0 name 0 draw 1 define -1}
		Territories {number 0 name 1 populate 0 info 1}
	}
	locations {
		homes {{centers coral} Supplies s {Orange {} S} {
			MOS KHA SEV IRK CON TOK DAM PEK KYO BAG
			SAS SHA TIB CHU DEL CAL HAN HUE MAD SAI
			BOR SUM JAV
		}}
		supplies {{centers maroon} Supplies s {Blue {} S} {
			RUM MAN KOR PER AFG BAL FOR HKO PHI BUR 
			SIA CAM MAL
		}}
		coasts {{locations red} Territories c {Red DarkGreen AF} {
			RUM SEV KHA YES CON MAR ARM MAN TOK AKI
			BAG KYO SHI KOR PEK EGY SAS PER SHA BAL
			ARA FOR HKO CAL HAN BOM BUR PHI MAD HUE
			CAM SAI SAR MAL BOR SUM JAV
		}}
		lands {{locations saddlebrown} Territories l {Green DarkGreen A} {
			SIB IRK MOS AMU KIR TOM MON TUR SIN KAN
			AFG KAS TIB CHU ASM DEL YUN LAO
		}}
		waters {{locations blue} Territories w {White White F} {
			SOO BLA MED SOJ YEL ECS CPO PSE PGU RED 
			ASE SCS BOB GOM CSE GOS KAR EIO WIO JSE 
			BAN SIO
		}}
		greens {{locations lime} Territories g {DarkGreen DarkGreen A} {
			BUL DAM CAN SIA
		}}
		beaches {{locations green} Territories b {Yellow {} F} {
			BUL/SC BUL/EC DAM/WC DAM/SC CAN/EC CAN/SC SIA/EC SIA/WC
		}}
	}
	powers {
		BRITAIN {B Blue White}
		CHINA {C Yellow Black}
		FRANCE {F Turquoise Black}
		HOLLAND {H Green Black}
		JAPAN {J Red White}
		RUSSIA {R White Black}
		TURKEY {T Orange Black}
	} 
	layout {corner adjustments} fontSize 8
	drawLayoutBorder 7 composed 0 printLayout 0 testBorder 0
	addPage 1 pageContents {
		"\{"

		"200 40 DrawFleet"
		"200 40 180 140 ArrowPropose"
		"200 40 100 20 ArrowRetreat"
		"200 40 300 60 ArrowMove"
		
		"180 140 DrawArmy"
		"ProposePhase"
		"180 140 160 240 ArrowMove"
		"RetreatPhase"
		"180 140 80 120 ArrowMove"
		"MovePhase"
		"180 140 280 160 ArrowMove"

		"300 90 DrawFleet"
		"300 90 200 40 180 140 ArrowSupport"
		"300 120 DrawArmy"
		"300 120 180 140 ArrowHold"
		"300 150 DrawFleet"
		"300 150 180 140 160 240 ArrowConvoy"

		"\} dup exec -40 200 translate FailedOrder exec OkOrder 40 -200 translate"
				
		"400 200 DrawFleet"
		"400 200 ArrowArrive"
		"400 230 DrawArmy"
		"400 230 ArrowDepart"
		"400 260 DrawFleet"
		"400 260 ArrowRetreatArrive"
		"400 290 DrawArmy"
		"400 290 ArrowRetreatDepart"
		
		"500 200 DrawFleet"
		"500 200 BuildUnit"
		"500 230 DrawArmy"
		"500 230 DestroyUnit"
		"500 260 DrawFleet"
		"500 260 DisbandUnit"
		"500 290 DrawArmy"
		"500 290 RemoveUnit"
		"500 320 DrawFleet"
		"500 320 FindUnit"
		"500 350 DrawArmy"
		"500 350 LoseUnit"
		"500 380 DrawFleet"
		"500 380 QueryUnit"
    }
}

#cleanUpCache